約 4,892,188 件
https://w.atwiki.jp/keiplus/pages/249.html
職場向けVBA vba 職場 本項は書きかけの記事です。正確な情報は公式サイト、公式ドキュメント、記載の参照サイトでご確認ください。 OSS(OpenSourceSoftware)を利用しています。使用期限や保守、公開期間の確約がないことに留意してください。 目次 + 読む 職場向けVBA目次 よく使うマクロ 参考 よく使うマクロ Common オブジェクト一括削除 非表示行の一括表示 描画オブジェクト、表、テキストボックスの一括縮小 シェイプ画像の一括圧縮 関数 log4timestamp("文字列") 汎用処理 + 読む CommonLibrary オブジェクト一括削除 todo functionの引数を変えても変わらないバグ Sub deleteAllObjects() Dim obj As Object Dim ws As Worksheet Dim hyperlink As hyperlink Dim description As String Set ws = ActiveSheet For Each obj In ActiveSheet.Shapes obj.Delete log4timestamp ("Shapes") Next obj For Each obj In ActiveSheet.ChartObjects obj.Delete log4timestamp ("ChartObjects") Next obj For Each obj In ActiveSheet.OLEObjects obj.Delete log4timestamp ("OLEObjects") Next obj For Each obj In ActiveSheet.Buttons obj.Delete log4timestamp ("Buttons") Next obj For Each obj In ActiveSheet.ListBoxes obj.Delete log4timestamp ("ListBoxes") Next obj For Each obj In ActiveSheet.CheckBoxes obj.Delete log4timestamp ("CheckBoxes") Next obj For Each obj In ActiveSheet.OptionButtons obj.Delete log4timestamp ("OptionButtons") Next obj delete hyperlins For Each hyperlink In ws.Hyperlinks hyperlink.Delete log4timestamp ("Hyperlinks") Next hyperlink End Sub Sub ShowHiddenRowsInRange() Dim rng As Range Set rng = Range("A1 A10") 表示したい範囲を指定 rng.EntireRow.Hidden = False Rows.Hidden = False log4timestamp ("ShowHiddenRowsInRange") End Sub Sub ShrinkObjects() Dim obj As Object Dim ws As Worksheet Set ws = ActiveSheet 縮小したいオブジェクトが含まれているシートを指定 シート上のすべてのオブジェクトを縮小する For Each obj In ws.Shapes obj.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft obj.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft Next obj シート上のすべてのチャートを縮小する For Each obj In ws.ChartObjects obj.Width = obj.Width * 0.75 obj.Height = obj.Height * 0.75 Next obj シート上のすべてのテキストボックスを縮小する For Each obj In ws.TextBoxes obj.Width = obj.Width * 0.75 obj.Height = obj.Height * 0.75 Next obj log4timestamp ("ShrinkObjects") End Sub Sub CompressImages() Dim ws As Worksheet Dim shp As Shape For Each ws In ThisWorkbook.Worksheets すべてのシートに対して処理を繰り返す For Each shp In ws.Shapes シート内のすべてのシェイプを取得する If shp.Type = msoPicture Then シェイプが画像である場合のみ処理を実行する shp.PictureFormat.Compression = 80 圧縮率を設定する（ここでは80%に設定していますが、必要に応じて変更してください） shp.PictureFormat.SaveWithDocument = True 圧縮画像をブックに保存する End If Next shp Next ws End Sub メール送信 定期的に送信するメール用 + 読む Sub createstarttelework() Dim OutApp As Object Dim OutMail As Object Dim fso As Object Dim textFile As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim mailDate As String mailDate Format(Now, "MM/DD") Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.opentextfile("c \aaa\bbb\importfile.txt", 1) bodyText = textFile.ReadAll textFile.Close With OutMail .To = "joshi@example.com; joshi2@example.com" .CC = "joshi@example.com; joshi2@example.com" .BCC = "me@example.com" .Subject = mailDate "出勤" .Body = bodyText .Display End With Set OutMail = Nothing Set OutApp = Nothing Set fso = Nothing End Sub Outlook・特定のフォルダ―の件名、受信日時を取得したリストを書き出す + 読む 【注意】FSOは参照設定のMicrosoft Scripting Runnerを有効化する必要がある。 Sub ExportEmailSubjectsAndReceivedDates() Dim outlookApp As Outlook.Application Dim namespace As Outlook.NameSpace Dim folder As Outlook.Folder Dim mailItems As Outlook.Items Dim mailItem As Object Dim startDate As Date Dim endDate As Date Dim filter As String Dim fso As Object Dim textFile As Object Dim filePath As String Outlookのセットアップ Set outlookApp = New Outlook.Application Set namespace = outlookApp.GetNamespace("MAPI") フォルダのパスに基づいてフォルダを取得 Set folder = namespace.Folders("メールボックス名").Folders("受信トレイ").Folders("path").Folders("to").Folders("targetfolder") メールボックス名は基本はメールアドレス 取得するメールの期間を設定 startDate = "2023/11/01" endDate = "2023/11/30" 期間に基づいてフィルタを設定 filter = "[ReceivedTime] = " Format$(startDate, "ddddd h nn AMPM") _ " And [ReceivedTime] = " Format$(endDate, "ddddd h nn AMPM") " " フィルタを適用してメールを取得 Set mailItems = folder.Items.Restrict(filter) mailItems.Sort "[ReceivedTime]", True 受信日時でソート 出力するテキストファイルのパス filePath = "C \EmailSubjectsAndDates.txt" ファイル名を含めたフルパスを記載 FileSystemObjectのセットアップ Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.CreateTextFile(filePath, True) メールの件名と受信日時をファイルに書き込む For Each mailItem In mailItems If mailItem.Class = olMail Then textFile.WriteLine "件名 " mailItem.Subject " - 受信日時 " mailItem.ReceivedTime End If Next mailItem ファイルを閉じる textFile.Close オブジェクトの解放 Set fso = Nothing Set textFile = Nothing Set mailItems = Nothing Set folder = Nothing Set namespace = Nothing Set outlookApp = Nothing 完了メッセージ MsgBox "メールの件名と受信日時が出力されました。", vbInformation End Sub メール本文に入れ込むファイルパスを指定したい場合 + 読む Sub createweekendreport() Dim OutApp As Object Dim OutMail As Object Dim fso As Object Dim textFile As Object Dim bodyText As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim mailDate As String mailDate Format(Now, "MM/DD") FilePath = InputBox("週報のファイルを指定", "入力", "c \aaa\bbb\ccc") If FilePath = "" Then Exit Sub On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.opentextfile("c \aaa\bbb\importfile.txt", 1) If Err.Number 0 Then MsgBox "ファイルパスが不正", vbExclamation Exit Sub End If On Error GoTo 0 bodyText = textFile.ReadAll textFile.Close With OutMail .To = "joshi@example.com; joshi2@example.com" .CC = "joshi@example.com; joshi2@example.com" .BCC = "me@example.com" .Subject = mailDate "出勤" .Body = bodyText .Display End With Set OutMail = Nothing Set OutApp = Nothing Set fso = Nothing End Sub ハイパーリンクからマクロを実行する + 読む １．動かしたいサブプロシージャ―を作成 ２．VBA・プロジェクトビューワのExcelObjectsにある「ThisWorkBook」で次のPrivate サブプロシージャ―を作成する Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) Call 動かしたいサブプロシージャ―名 End Sub ３．シートでハイパーリンクを作成する。 このときリンク先は自身のセルを指定すると良い。 （メリット） マクロの起動にはメニューの開発からマクロを選択したり、オブジェクト画像にマクロをリンクさせる方法があるが いずれも面倒さがある。ハイパーリンクから起動する場合、設置が楽で汎用性があるところがメリット。 （注意点） ThisWorkBookにプロシージャ―を置いているので、ハイパーリンクを踏むと全てのシートで同一マクロを動かしてしまうので注意。 特定シート、セルからのみ動かしたい場合はWorkbook_SheetFollowHyperlinkの引数を利用して条件分けすることで対処できる。 シート別に動かすマクロを変える場合は、引数Sh、Targetを利用して条件分けする必要がある。 Sh.Nameでシート名を取得でき、 Target.SubAddressで「シート名!A1」形式でセル座標を取得でき、 Target.Nameで「ハイパーリンクにしている文字列」を取得できる ので、細かく条件分けすることができる。 DL CommonLibrary.basダウンロード 参考
https://w.atwiki.jp/kbhyakka/pages/126.html
Trance-Europe Express(1977) By Kraftwerk Genre Kroutrock KB 9.7 Hyakka 9.8 Total A+ 名前 コメント
https://w.atwiki.jp/thecockrockshockpop/pages/1494.html
Outloud is チャンドラ－・モーゲル Chandler Mogel – All Lead Background Vocals ボブ・カティオニス Bob Katsionis – Lead Guitars Key スヴァード Sverd – Bass ジム・スコルディリス Jim Scordilis – Guitars トマス・パパス Thanos Pappas – Drums CDVirtual Hero Society Outloud CD Virtual Hero Society RUBICON MUSIC 2018/10/31 1. Fools Train 2. My Promise 3. Virtual Heroes 4. I Am The One 5. Share My Dreams 6. World-Go-Round 7. We Got Tonite 8. Borrowed Time 9. Live With It 10. ...And I Tried 11. Fallen Love 12. Fight On! 13. Stranger Heroes [ Bonus Track for Japan ] Produced by Bob Katsionis Mix by Bob Katsionis Artwork by Gustavo Sazes Outloud 2009年8月28日 ( N ) 1. What I Need / 2. We Run / 3. Tonight / 4. Search For Truth / 5. This Broken Heart / 6. Breathing Fire / 7. Wild Life / 8. Broken Sleep / 9. Out In The Night / 10. Lovesigh / 11. Out Loud / 12. Lovesigh [ electric vrsion ]
https://w.atwiki.jp/japanesehiphop/pages/473.html
Format Title Artist Label Model Number Release Press 12 TRANS SAPPORO EXPRESS THA BLUE HERB THA BLUE HERB RECORDINGS TBHR-009 2002/02/20 - Side Track Title Produce A 1 TRANS SAPPORO EXPRESS O.N.O 2 TRANS SAPPORO EXPRESS(Inst) O.N.O B 3 A SWEET LITTLE DIS O.N.O 4 A SWEET LITTLE DIS(Inst) O.N.O PERTAIN CD FRONT ACT CD
https://w.atwiki.jp/kaeuta-matome/pages/1188.html
元ネタ：Re-Cool HABANA EXPRESS（寺尾聰） 作：ヤジ替え歌 ２ちゃんを開いて相談したら ようやく自分に戻った気がするぜ あんなにたやすくお股を広げる淫らなおまえに 勝ては しない 証拠は激しい嵐のように 根こそぎ愛情砕いたほどさ このままおまえとやり直そうとは気団らしくもない 寝言 言ってた フラバの ために 痩せ もう おまえも見たくはないさ 終わりのないプリなんて 多分 人じゃ ないぜ 検索タグ J-POP ヤジ替え歌 不倫サレ １コーラス以上 メニュー 作者別リスト 元ネタ別リスト 内容別リスト フレーズ長別リスト
https://w.atwiki.jp/conlang_arka/pages/68.html
Arka is good at literary and artistic expressions. Here is a sample from xistina, a picture book on Mel calendar. Every day in a year has its own color. The color of the day on the sample page is white. The name of the color is honoka which means snow in the language of Altia (Altian). Every day in a year has its own word. The word of the day on the sample page is honesty. It tells us snow is a symbol of honesty. There is a poem in the middle of the sample page. There is a picture which is related to the color. Next, read this article on Melidia . "Melidia" is a novel written in Arka. In this novel, a college student is murdered and the heroine named Sae become a suspect. A girl named Miina (it means a flower) thinks Sae is the murderer and makes the following remark el rens honoka til diasex. fien la fenvlen nekt tuuno enfrex, tyu klos xal laas til diasex i fiona yundi. They say snow doesn t tell a lie. But snow hides dirt on the ground. Do you really think the snow is still "intact"? Miina is a college student from the art department, so she knows xistina well. She knows snow is a symbol of honesty but says snow can hide dark secrets. What is the intention of her remark? There are three words which mean snow in her remark. Honoka is an Altian word for snow. "La fenvlen" is a Lutian word for something white and means snow in this case. Where is the third snow, then? It lies between lines. It is Sae whose name means snow in Arka. Yes, her remark implies that Sae told lies and is the murderer. She tells her idea without saying the suspect s name. It is a sophisticated euphemism. "La" of "la fenvlen" is a definite article of Lutian (the language of Lutia). Fenvl itself is just white. In Arka, la means that the following word is an animate noun, so "la fenvlen" also means "that white fellow". Who is the "fellow", then? It is Sae again. Remember what her name means. Miina s remark implies the suspected girl with a pale face. Thus Arka is good at literary and artistic expressions.
https://w.atwiki.jp/seasartaro/pages/89.html
第9章で説明されている、node.jsのフレームワーク、「Express」でのブログアプリ作成を、 4.x系で動かすための情報を記述します。 書籍の第8章まで読み進められており、第9章の内容もなんとなく理解できる方を対象にしています。 いまのところ、macの環境でのみ動作確認をしています。 動作済みのソースもこのページの一番下にアップロードしています。 ただし、このサイトが1MB以上のアップロードに対応していないため、 node_modules以下のモジュールを削除しています。動作確認時にモジュールをインストールしてください。 また説明が簡素というか大分足りてないと思いますので、適宜書籍ソースと改変したソースを参考にしてください。 テンプレートエンジンで書籍同様jadeを利用していますが、jadeに関しての説明も省略しています。 動作確認環境について node.js v0.10.5 express 4.8.3 express-generator 4.2.0 インストールとスケルトンコードの実行 expressのインストール自体は書籍を参照してください。 書籍でexpressの導入後にスケルトンコードを生成していますが、 4.x系ではスケルトンコードのジェネレーターがexpress本体から独立しました。 そのため、以下のコマンドでジェネレーターを追加インストールします。 npm install express-generator 次にインストールしたジェネレーターが存在するフォルダ (個人の環境によって違いますが~/node_modules/express-generator/bin等) に移動して、以下のコマンドを実行します。 node express [環境を作りたいフォルダ名] さらに環境を作ったフォルダに移動して、以下のコマンドを実行します。 npm install これで環境ができました。テストプログラムの実行は以下のコマンドです。 npm start ブログアプリソースコード 3.xから4.xへの変更で大きく変わったのがgetとpostを受け取る処理の変更です。 書籍のソースと改変した4.xバージョンのソースを見比べてみてください。 2014年8月時点では、書籍の最新のソースは以下にあります。 http //sourceforge.jp/users/hylom/pf/node_sample_nblog/scm/tree/4b1661ac724bd351c096d176a2a3d27f5c8a211f/ getメソッドとsetメソッドの修正 書籍では、 app.get( /login , routes.login); app.post( /login , routes.login.post); app.get( /logout , routes.logout); というように、appオブジェクトのgetメソッドとpostメソッドを呼び、引数にパスと関数の参照を渡していたのを、、、 4.x版では app.jsに var routes = require( ./routes ); とroutesフォルダの参照をもらって、 app.use( / , routes); のようにappオブジェクトのuseメソッドに"/"パスとフォルダの参照を渡しています。 実際のurlパスごとの処理は、routesフォルダ以下に設置したindex.jsで処理をします。 /routes/index.js では書籍の「app.get( /login , routes.login);」に当たる処理を以下のように記述します。 var express = require( express ); var router = express.Router(); (省略) router.get( /login , function(req, res) { // GETリクエストに対する処理 res.render( login , { page { title login }, user null, name , error 200, loginFailed false }); return; }); (省略) module.exports = router; expressオブジェクトのRouter()メソッドの戻り値のgetメソッドを呼んでいます。 メソッドの中身は3.xの処理をほぼそのまま流用しています。 その他 他にも、モジュールの宣言やセッションの生成等いろいろと修正していますので、 ソースと書籍を適宜確認して下さい。
https://w.atwiki.jp/chu2words/pages/869.html
感情を表現する コメント 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/live2ch/pages/378.html
/ 2013年05月24日 (金) 19時45分24秒 ◆質問時に書いてほしいこと 説明 OS・アプリ・周辺機器 どのような環境なのか、なにを使用しているのか 具体的な状況 なにをしたのか、どう設定したのか、どうしたいのか ◆質問時に避けたい表現 説明 エラーが出ました どのようなエラーが出たのか正確に書く 解説のとおりにやりました なにをやったのか、念のため書く いろいろやりました なにをやったのか具体的に書く それはもうやりました 自分がやったことは最初に書く ※URLを含むコメントを投稿したい場合は、「http」ではなく、「ttp」と記述していただくようお願いいたします。スパム対策で「http」を含むコメントは投稿できないようにしています。 ※コメントの投稿に失敗する場合があります。そこで、念のためコメントをコピーしてから投稿することをお勧めします。やり方は、Ctrl + Aを押したあとCtrl + Cを押します。投稿に失敗した場合は、Ctrl + Vでコメントを貼り付けて再度投稿してください。 2018年 名前 コメント 2017年 2016年 2015年 2014年 2013年 DC-HD1が共存できるようなアドバイスお願いいたします。 今更だが、マザボ買い替えが最もいいだろう。 ライザーカードという、いわゆる延長ケーブル的カードが1000～3000円ぐらいであるが カードの固定などに工夫が必要なため初心者にはおすすめできない。 また、理論上はx16のクラボかスロットを削ってx1スロットに、 目的のカードをそのままx16スロットに差し込むことは可能。 もちろん、帯域が狭くなるため性能は落ちる。 PCI Express接続の周辺機器は、 液晶一体型デスクトップPCやノートPCには接続できません 。 これは語弊がある。 ラップトップでも形状は違えど、PCI expressは利用されている。ExpressCardや無線のminicardもPCIexの一種。 また、ThunderboltもPCIexpressを通すことは可能。 -- asdf (2013-03-26 02 13 24) 2012年 PCI Express x1とx16のスロットがあるPCなのですが、 x16にGeForoce 9800GTがあり空冷ファンの位置にx1がある状況です。 DC-HD1を使いたいのですが、（というかもう買っちゃいました） 今時のグラフィックボードは、2スロット占有のものが多く困っています。 グラフィックボードやPCの買い替えも含めグラフィックボードと DC-HD1が共存できるようなアドバイスお願いいたします。 -- 名無しさん (2012-08-17 12 24 20) ↑マジッすか！！ ノートPCしか持ってないから欲しい！！ -- 名無しさん (2012-08-09 18 03 38) PCI Express x1をノートPCなどでも使えるようにする外付けアダプタが発売されていたりしますが、これを試してみた方いますか？ もしいたら使用感などの情報がほしいなーと。 -- 名無しさん (2012-06-18 12 44 05)
https://w.atwiki.jp/otasukeman/pages/177.html
2006.7.19 生田 送信者を「差出人セーフリスト」に追加します。 操作は「アクション」-- 「迷惑メール」-- 「送信者を「差出人セーフリスト」に追加」です。 2006.7.25 竹内 添付の「メール仕分け」が当面、有効かと思います。SPAMは悪質ではありませんが、放置しておくと、毎日何十も入ってきて、消すのが厄介ですが、我慢するとして、最も困るのは、下手にSPAM対策ソフトなどで、「SPAM」のフォルダーに入れてしまうと、大切なメールを読みそこなうことです。 添付の説明にあるように、「日進月歩のSPAM悪巧みを避ける完璧な対策は無いと」当面あきらめると、意外に有効かと思います。 メールのメッセージを仕分けする件（SPAMメールの読み損じ防止策の一つ？） outlook express はカテゴリー別のメールを仕分けして表示する簡易プログラムがあります。これは直接にSPAMを回避するものではありませんが、日進月歩のSPAM悪巧みに対抗するには、当面、手軽な直接回避対策は無いものと割り切りましょう。 受信メール仕分けのメリット） １．仕事、趣味、その他など、テーマ別に向き合える ２．重要なメールの見落としを防止 （仕分けのコツ）・・・自分の仕事を良く分析して、仕分けの名前を作る。なるべく大くくりで。 １．現役の時には、仕事優先で 顧客別、地域別、など、自分の仕事の特徴によってフレキシブルに仕分けする。 ２．趣味の別, サービスの別 など ３．「SPAM」と言う仕分けは絶対に作らない。（SPAM対策の完璧なソフトは無い） （仕分け方法） Outlook Expressのメニュー＜メッセージ＞ー＜メッセージからルールを作成＞から指示の通りに設定する。